home *** CD-ROM | disk | FTP | other *** search
/ Webster's Millennium Amer…Sign Language Dictionary / ASL.ISO / mac / SHARED.cst / 00005_Script_alpha and categories < prev    next >
Text File  |  2001-09-17  |  1KB  |  35 lines
  1. --∂ï
  2. on setAlpha letter
  3.   global gWordList
  4.   global alphaLocsE
  5.   global scrollList,scrollListE
  6.   global maxScroll,minScroll
  7.   global scrollTop,scrollBottom
  8.   global gAlphaBet
  9.   
  10.   if voidP(gWordList) or gWordList = EMPTY then  ----PETEMACK 06.21.01
  11.     ENGLISH  ----PETEMACK 06.21.01
  12.     -- set gWordList = getStringToList(gWordList) ----PETEMACK 06.21.01
  13.   end if
  14.   
  15.   if letter = 0 then
  16.     set minscroll = 1
  17.     set maxscroll = count(gWordList)
  18.   else
  19.     --if "XYZ" contains letter or "wxyz" contains letter then
  20.     if "Z" = letter or "z" = letter then
  21.       set minScroll = integer(getAt(AlphaLocsE,getPos(gAlphabet,"Z")))
  22.       set maxScroll = count(gWordList)
  23.     else
  24.       set minscroll=integer(getAt(AlphaLocsE,getPos(gAlphabet,letter)))
  25.       set maxscroll=getAt(AlphaLocsE,getPos(gAlphabet,letter)+1)-1
  26.       repeat with i = minscroll to maxscroll
  27.         nothing ----PETEMACK 06.21.01 (this was blank)
  28.       end repeat
  29.     end if   
  30.   end if
  31.   
  32.   set scrollTop=integer(minScroll)
  33.   set scrollBottom = integer(scrollTop)+8
  34.   
  35. end setalpha